* src/ftcrfont.c (ftcrfont_shape): Fix last change.

diff --git a/src/ftcrfont.c b/src/ftcrfont.c
index e341c409b1e18928b2bd846d3f2890b3538469d1..8a1c9a48e1f7a079a6802f1e63626f975c1daa78 100644 (file)
--- a/src/ftcrfont.c
+++ b/src/ftcrfont.c
@@ -25,6 +25,7 @@ along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.  */
 #include "lisp.h"
 #include "xterm.h"
 #include "blockinput.h"
+#include "composite.h"
 #include "font.h"
 #include "ftfont.h"
 #include "pdumper.h"
@@ -291,6 +292,7 @@ static Lisp_Object
 ftcrfont_shape (Lisp_Object lgstring)
 {
 #if defined HAVE_M17N_FLT && defined HAVE_LIBOTF
+  struct font *font = CHECK_FONT_GET_OBJECT (LGSTRING_FONT (lgstring));
   struct font_info *ftcrfont_info = (struct font_info *) font;
 
   if (ftcrfont_info->bitmap_strike_index < 0)